home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1994 2nd Q2 / The Association of Shareware Professionals - The Official ASP Advantage (2nd Quarter)(1994).bin / files / progming / unst13 / finddisk < prev    next >
Encoding:
Text File  |  1993-08-16  |  3.5 KB  |  136 lines
  1. ;*********************************************************************
  2. ;* This is a simpler installation script to show you how you can
  3. ;* get a lot of user interface with not much effort. This script file
  4. ;* was created with the help of Winster, the utility included in the 
  5. ;* registered user Universal INSTALL package. 
  6. ;*********************************************************************
  7. ;
  8. ClearScreen
  9. Backplane Green on Magenta =▒
  10. BuildWindow
  11.   StartRow =3
  12.   StartColumn =6
  13.   ShadowType =Big
  14.   WindowColor =Gray
  15.   Border =Red
  16.   TopTitle =Sample Installation
  17.   BottomTitle =Press ENTER to continue...
  18.   Text Center Black =This "sample" installation doesn't 
  19.   Text Center Black =really install anything, but
  20.   Text Center Black =it does show you how easy
  21.   Text Center Black =it is to create a
  22.   Text Center Black =professional look!
  23. EndWindow
  24. BuildWindow
  25.   StartRow =16
  26.   StartColumn =center
  27.   ShadowType =Big
  28.   WindowColor =Gray
  29.   Text Center Blue =This script showcases the "FindDisk" command, which can 
  30.   Text Center Blue =be useful for locating a previous version of your software
  31.   Text Center Blue =or getting the drive letter of a network drive, for example.
  32. EndWindow
  33. Wait =Enter,Esc
  34. On (Esc) Jump =Quit
  35. ; -----------------------
  36. ;  Ask for Volume Label
  37. ; -----------------------
  38. ClearPlane
  39. BuildWindow
  40.   StartRow =6
  41.   StartColumn =center
  42.   ShadowType =Big
  43.   WindowColor =White
  44.   Border =Blue
  45.   RowMargin =4
  46.   ColumnMargin =21
  47. EndWindow
  48. BuildWindow
  49.   StartRow =Window+1
  50.   StartColumn =Window+2
  51.   WindowColor =Cyan
  52.   ShadowType =Small
  53.   RowMargin =0
  54.   ColumnMargin =2
  55.   Text 1,1 Black =Please enter 
  56.   Text 1,2 Black =the volume 
  57.   Text 1,3 Black =label of
  58.   Text 1,4 Black =a disk to 
  59.   Text 1,5 Black =search for:
  60. EndWindow
  61. BuildWindow
  62.   StartRow =Window+3
  63.   StartColumn =Window+24
  64.   WindowColor =Blue
  65.   ShadowType =Small
  66.   RowMargin =0
  67.   ColumnMargin =0
  68.   Text 1,1 White =            ÉÉ 
  69. EndWindow
  70. Input
  71.   StartRow = Window+3
  72.   StartColumn =Window+26
  73.   Action =Enter, Esc
  74.   TextColor =White on blue
  75.   Default =GOODSOFT
  76.   Width =11
  77. EndInput
  78. On (Esc) Jump =Quit
  79. ; ------------------
  80. ;  Search for Disk
  81. ; ------------------
  82. ClearPlane
  83. BuildWindow
  84.   StartRow =3
  85.   StartColumn =Center
  86.   ShadowType =None
  87.   WindowColor =Magenta
  88.   Text Center White =Depending on your system, this may take up to a few minutes.
  89. EndWindow
  90. BuildWindow
  91.   StartRow =8
  92.   StartColumn =Center
  93.   WindowColor =Green
  94.   ShadowType =Big
  95.   Text 1,1 White =INSTALL is now searching
  96.   Text 1,2 White =for this disk: $INPUTRESULT
  97.   Text 1,3 White =
  98.   Text 1,4 White =This is an example of using script
  99.   Text 1,5 White =variables to gather user input and
  100.   Text 1,6 White =use it in an installation.
  101. EndWindow
  102. FindDisk =$INPUTRESULT
  103. BuildWindow
  104.   StartRow =20
  105.   StartColumn =Center
  106.   WindowColor =Gray
  107.   ColumnMargin =1
  108.   Text Center Black =Found! Press ENTER to continue...
  109. EndWindow
  110. Wait =Enter
  111. ; -----------------
  112. ;  Display results
  113. ; -----------------
  114. ClearPlane
  115. BuildWindow
  116.   StartRow =Center
  117.   StartColumn =Center
  118.   ShadowType =Big
  119.   WindowColor =Red
  120.   Text Center White =The disk is located in drive $FINDRESULT !
  121.   Text Center White =
  122.   Text Center White =Press ESC to quit.
  123. EndWindow
  124. Wait =ESC
  125. ; ------
  126. ;  Quit 
  127. ; ------
  128. [Quit]
  129. ClearScreen
  130. Text Gray on Black 1,2  =Thank you for trying out Universal INSTALL!
  131. Text Gray on Black 1,4  =
  132. Text Gray on Black 1,5  = The GoodSoft Co.
  133. Text Gray on Black 1,6  = 1630 30th Street, Suite 235
  134. Text Gray on Black 1,7  = Boulder, CO 80301 U.S.A
  135. Text Gray on Black 1,8  =
  136.